home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
scottman
/
form4.frm
< prev
next >
Wrap
Text File
|
1995-09-06
|
2KB
|
82 lines
VERSION 2.00
Begin Form Form4
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Rename"
ClientHeight = 1755
ClientLeft = 1680
ClientTop = 7575
ClientWidth = 4185
Height = 2160
Left = 1620
LinkTopic = "Form4"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1755
ScaleWidth = 4185
Top = 7230
Width = 4305
Begin CommandButton Command2
Caption = "Cancel"
Height = 615
Left = 2280
TabIndex = 3
Top = 960
Width = 1695
End
Begin CommandButton Command1
Caption = "OK"
Height = 615
Left = 240
TabIndex = 2
Top = 960
Width = 1455
End
Begin TextBox Text1
Height = 285
Left = 1320
MaxLength = 7
TabIndex = 1
Top = 240
Width = 2655
End
Begin Label Label1
BorderStyle = 1 'Fixed Single
Caption = "Name"
Height = 285
Left = 240
TabIndex = 0
Top = 240
Width = 975
End
End
Sub Command1_Click ()
If z = 1 Then
form1.Label1.Caption = text1.Text
End If
If z = 2 Then
form1.Label2.Caption = text1.Text
End If
If z = 3 Then
form1.Label3.Caption = text1.Text
End If
If z = 4 Then
form1.Label4.Caption = text1.Text
End If
If z = 5 Then
form1.Label5.Caption = text1.Text
End If
If z = 6 Then
form1.Label6.Caption = text1.Text
End If
If z = 7 Then
form1.Label7.Caption = text1.Text
End If
form4.visible = false
End Sub
Sub Command2_Click ()
form4.Visible = False
End Sub